|
1700
|
How do I layout expandable columns
with thisform.G2antt1
.BeginUpdate
.ColumnAutoResize = .F.
.DrawGridLines = -1
.BackColorLevelHeader = .BackColor
with .Columns
with .Add("C0")
.ExpandColumns = "1,2"
.DisplayExpandButton = .T.
endwith
.Add("C1")
.Add("C2")
.Add("C3")
with .Add("C4")
.ExpandColumns = "5,6"
.DisplayExpandButton = .T.
endwith
.Add("C5")
with .Add("C6")
.ExpandColumns = "6,7"
.DisplayExpandButton = .T.
endwith
.Add("C7")
endwith
.EndUpdate
.Columns.Item("C4").Expanded = .F.
endwith
|
|
1699
|
Is it possible to display automatically the start/end margins of the bars
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
with .Bars.Item("Task")
.Def(3) = "<%=%1%>"
.Def(4) = 16
.Def(44) = "<%=%2%>"
.Def(45) = 18
endwith
.ScrollTo(.FirstVisibleDate,1)
endwith
.Columns.Add("Task")
.Columns.Add("ToolTip").Visible = .F.
with .Items
h = .AddItem("Item 1")
.DefaultItem = h
.CellValue(0,1) = "bar <b>a"
.AddBar(h,"Task",{^2000-12-29},{^2001-1-5})
h = .AddItem("Item 2")
.DefaultItem = h
.CellValue(0,1) = "bar <b>b"
.AddBar(h,"Task",{^2000-12-30},{^2001-1-6})
endwith
.EndUpdate
endwith
|
|
1698
|
Is it possible to assign the bar's caption from a hidden column
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
with .Bars.Item("Task")
.Def(3) = "<%=%C1%>"
.Def(4) = 18
endwith
endwith
.Columns.Add("Task")
.Columns.Add("ToolTip").Visible = .F.
with .Items
h = .AddItem("Item 1")
.DefaultItem = h
.CellValue(0,1) = "bar <b>a"
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5})
h = .AddItem("Item 2")
.DefaultItem = h
.CellValue(0,1) = "bar <b>b"
.AddBar(h,"Task",{^2001-1-3},{^2001-1-6})
endwith
.EndUpdate
endwith
|
|
1697
|
Is it possible to assign the bar's tooltip from a hidden column
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
.Bars.Item("Task").Def(6) = "<%=%C1%>"
endwith
.Columns.Add("Task")
.Columns.Add("ToolTip").Visible = .F.
with .Items
h = .AddItem("Item 1")
.DefaultItem = h
.CellValue(0,1) = "This is a bit of text that's shown when the cursor hovers the bar on item 1."
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5})
h = .AddItem("Item 2")
.DefaultItem = h
.CellValue(0,1) = "This is a bit of text that's shown when the cursor hovers the bar on item 2."
.AddBar(h,"Task",{^2001-1-3},{^2001-1-6})
endwith
.EndUpdate
endwith
|
|
1696
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 2)
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
endwith
.Columns.Add("Task")
with .Items
h = .AddItem("Default")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5})
.DefaultItem = h
.ItemBar(0,"",51) = 65536
endwith
.EndUpdate
endwith
|
|
1695
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 1)
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.Bars.Item("Task").Def(51) = 65536
endwith
.Columns.Add("Task")
with .Items
.AddBar(.AddItem("Default"),"Task",{^2001-1-2},{^2001-1-5})
endwith
.EndUpdate
endwith
|
|
1694
|
What I need is bars that have a solid color, but with a black frame. How can we do that
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 22
with .Chart
.FirstVisibleDate = {^2001-1-1}
.LevelCount = 2
.PaneWidth(0) = 0
endwith
with .Chart.Bars.Add("Frame")
.Pattern = 1
.Color = RGB(0,255,0)
.Def(51) = 65536
.Def(3) = "<font ;6><%=%C0%>"
.Def(4) = 18
.Height = 15
endwith
.Columns.Add("Frames")
with .Items
.AddBar(.AddItem("Default"),"Frame",{^2001-1-2},{^2001-1-7})
h = .AddItem("Inside Color")
.AddBar(h,"Frame",{^2001-1-2},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",33) = 255
h = .AddItem("Border Color")
.AddBar(h,"Frame",{^2001-1-2},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",51) = 33023
h = .AddItem("Inside/Border Color")
.AddBar(h,"Frame",{^2001-1-2},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",33) = 16711680
.DefaultItem = h
.ItemBar(0,"",51) = 33023
h = .AddItem("Thick-Border")
.AddBar(h,"Frame",{^2001-1-2},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",42) = 4097
h = .AddItem("Thick-Border + Pattern")
.AddBar(h,"Frame",{^2001-1-2},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",42) = 4098
endwith
.EndUpdate
endwith
|
|
1693
|
How can we drag bars from one item to the other
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 22
.DrawGridLines = -1
.Columns.Add("Members").Def(17) = 1
with .Chart
.FirstVisibleDate = {^2006-9-20}
.AllowLinkBars = .F.
.AllowCreateBar = 0
.AllowSelectObjects = 0
.LevelCount = 2
.PaneWidth(0) = 96
.DrawGridLines = -1
with .Bars.Item("Task")
.OverlaidType = 4611 && OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.Height = 18
.Pattern = 1
.Color = RGB(0,128,255)
endwith
endwith
with .Items
h = .AddItem("Member <b>1</b>")
.AddBar(h,"Task",{^2006-9-21},{^2006-9-23},"T102","<font ;6><fgcolor FFFFFF>Task <b>102</b>")
.DefaultItem = h
.ItemBar(0,"T102",28) = .T.
h = .AddItem("Member <b>2</b>")
h = .AddItem("Member <b>3</b>")
h = .AddItem("Member <b>4</b>")
.AddBar(h,"Task",{^2006-9-21},{^2006-9-23},"T103","<font ;6><fgcolor FFFFFF>Task <b>103</b>")
.DefaultItem = h
.ItemBar(0,"T103",28) = .T.
endwith
.EndUpdate
endwith
|
|
1692
|
How can I use the exBarBackgroundExt option of the Items.ItemBar property
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 26
with .Chart
.NonworkingDays = 0
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.Bars.Item("Task").Height = 22
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Border-Top")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "top[3,back=RGB(0,0,0)]"
h = .AddItem("Border-Bottom")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "bottom[3,back=RGB(255,0,0)]"
h = .AddItem("Border-Left")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "left[6,back=RGB(0,255,0)]"
h = .AddItem("Border-Right")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "right[6,back=RGB(0,0,255)]"
h = .AddItem("Border-All")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "top[3,back=RGB(0,0,0)],right[3,back=RGB(0,0,255)],bottom[3,back=RGB(255,0,0)],left[3,back=RGB(0,255,0)],client"
h = .AddItem("Middle")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "none[(25%,25%,50%,50%),back=RGB(255,0,0)]"
h = .AddItem("Horizontal")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "none[(0,50%-2,100%,4),back=RGB(255,0,0)]"
h = .AddItem("Vertical")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "none[(50%-2,0,4,100%),back=RGB(255,0,0)]"
h = .AddItem("Mixt")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "[[patterncolor=RGB(255,0,0)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(255,0,0),frame=RGB(255,0,0),framethick])]"
h = .AddItem("Misc")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "bottom[50%,pattern=10,frame]"
h = .AddItem("Complex")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
.DefaultItem = h
.ItemBar(0,"",53) = "left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(91,156,212)]"
endwith
.EndUpdate
endwith
|
|
1691
|
Does the title of the cell's tooltip supports HTML format
with thisform.G2antt1
.BeginUpdate
.Chart.PaneWidth(1) = 0
with .Columns.Add("")
.Caption = ""
.HTMLCaption = "Column"
endwith
with .Items
.DefaultItem = .AddItem("tooltip w/h different title")
var_s = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the titl"
var_s = var_s + "e centered with a different color."
.CellToolTip(0,0) = var_s
endwith
.EndUpdate
endwith
|
|
1690
|
How do I specify a different title for the cell's tooltip
with thisform.G2antt1
.BeginUpdate
.Chart.PaneWidth(1) = 0
with .Columns.Add("")
.Caption = "This is the title"
.HTMLCaption = "Column"
endwith
with .Items
.DefaultItem = .AddItem("tooltip w/h different title")
.CellToolTip(0,0) = "This is bit of text that's shown when the user hovers the cell."
endwith
.EndUpdate
endwith
|
|
1689
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
with thisform.G2antt1
.BeginUpdate
.Chart.PaneWidth(1) = 0
with .Columns
.Add("C1")
.Add("C2")
endwith
with .Items
h = .AddItem("tooltip w/h caption")
.DefaultItem = h
.CellToolTip(0,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
.DefaultItem = h
.CellValue(0,1) = "tooltip no caption"
.DefaultItem = h
.CellToolTip(0,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
endwith
with .Columns.Item("C2")
.HTMLCaption = .Caption
.Caption = ""
endwith
.EndUpdate
endwith
|
|
1688
|
How can I programmatically show the column's filter
*** RClick event - Fired when right mouse button is clicked ***
LPARAMETERS nop
*** Columns(c).ShowFilter("-1,-1,128,128")
with thisform.G2antt1
i = .ItemFromPoint(-1,-1,c,hit)
endwith
with thisform.G2antt1
.BeginUpdate
.ShowFocusRect = .F.
with .Columns.Add("Items ")
.DisplayFilterPattern = .F.
.FilterList = 9472 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
endwith
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
endwith
.EndUpdate
endwith
|
|
1687
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 2)
*** ColumnClick event - Fired after the user clicks on column's header. ***
LPARAMETERS Column
*** Column.SortOrder = 1
with thisform.G2antt1
.SortOnClick = -1
.Columns.Item("Sort").SortOrder = 1
.SortOnClick = 1
endwith
with thisform.G2antt1
.BeginUpdate
.SortOnClick = 1
.Columns.Add("Items")
.Columns.Add("Sort").Visible = .F.
with .Items
.DefaultItem = .AddItem("Item 1 (3)")
.CellValue(0,1) = 3
.DefaultItem = .AddItem("Item 2 (1)")
.CellValue(0,1) = 1
.DefaultItem = .AddItem("Item 3 (2)")
.CellValue(0,1) = 2
endwith
.EndUpdate
endwith
|
|
1686
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 1)
*** ColumnClick event - Fired after the user clicks on column's header. ***
LPARAMETERS Column
*** Column.SortOrder = 1
with thisform.G2antt1
.Items.SortChildren(0,"Sort",.T.)
endwith
with thisform.G2antt1
.BeginUpdate
.SortOnClick = 1
.Columns.Add("Items")
.Columns.Add("Sort").Visible = .F.
with .Items
.DefaultItem = .AddItem("Item 1 (3)")
.CellValue(0,1) = 3
.DefaultItem = .AddItem("Item 2 (1)")
.CellValue(0,1) = 1
.DefaultItem = .AddItem("Item 3 (2)")
.CellValue(0,1) = 2
endwith
.EndUpdate
endwith
|
|
1685
|
How do I get information about control's events
*** Event event - Notifies the application once the control fires an event. ***
LPARAMETERS EventID
with thisform.G2antt1
DEBUGOUT( .ExecuteTemplate("EventParam(-2)") )
endwith
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 48
.AllowLinkBars = .F.
.Bars.Item("Task").OverlaidType = 257 && OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Item 1")
.DefaultItem = h
.EnableItem(0) = .F.
.DefaultItem = h
.ItemData(0) = -1
h = .AddItem("Item 2")
.DefaultItem = h
.ItemData(0) = 0
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"B")
.DefaultItem = h
.ItemBar(0,"B",28) = .T.
.DefaultItem = .AddItem("Item 3")
.ItemData(0) = 0
h = .AddItem("Item 4")
.DefaultItem = h
.EnableItem(0) = .F.
.DefaultItem = h
.ItemData(0) = -1
endwith
.EndUpdate
endwith
|
|
1684
|
How can I sort by two-columns, one by date and one by time
with thisform.G2antt1
.BeginUpdate
.SingleSort = .F.
with .Columns
.Add("Index").FormatColumn = "1 index ``"
.Add("Date").SortType = 2
with .Add("Time")
.SortType = 4
.FormatColumn = "time(value)"
endwith
endwith
with .Items
h = .AddItem(0)
.DefaultItem = h
.CellValue(0,1) = {^2001-1-1}
.DefaultItem = h
.CellValue(0,2) = {^2001-1-1 10:00:00}
h = .AddItem(0)
.DefaultItem = h
.CellValue(0,1) = {^2000-12-31}
.DefaultItem = h
.CellValue(0,2) = {^2001-1-1 10:00:00}
h = .AddItem(0)
.DefaultItem = h
.CellValue(0,1) = {^2001-1-1}
.DefaultItem = h
.CellValue(0,2) = {^2001-1-1 6:00:00}
h = .AddItem(0)
.DefaultItem = h
.CellValue(0,1) = {^2000-12-31}
.DefaultItem = h
.CellValue(0,2) = {^2001-1-1 8:00:00}
h = .AddItem(0)
.DefaultItem = h
.CellValue(0,1) = {^2001-1-1}
.DefaultItem = h
.CellValue(0,2) = {^2001-1-1 8:00:00}
h = .AddItem(0)
.DefaultItem = h
.CellValue(0,1) = {^2000-12-31}
.DefaultItem = h
.CellValue(0,2) = {^2001-1-1 6:00:00}
endwith
.Layout = "multiplesort="+chr(34)+"C1:1 C2:1"+chr(34)+""
.EndUpdate
endwith
|
|
1683
|
I am trying to hide the non-working dates by using the AddNonworkingDate to specify custom non-working dates while NonworkingDays property is 0, but the non-working date is still shown. What can be wrong
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2008-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
.ShowNonworkingUnits = .F.
.ShowNonworkingDates = .F.
.NonworkingDays = 128
.AddNonworkingDate({^2008-1-7})
.AddNonworkingDate({^2008-1-8})
.AddNonworkingDate({^2008-1-9})
.AddNonworkingDate({^2008-1-10})
endwith
.EndUpdate
endwith
|
|
1682
|
How can I display the task's duration, in days, hours and minutes
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Tasks")
.AllowSizing = .F.
.Width = 36
endwith
with .Columns.Add("Duration")
.Def(18) = 513
var_s = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ?"
var_s = var_s + " =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
.FormatColumn = var_s
endwith
with .Chart
.PaneWidth(0) = 148
.FirstVisibleDate = {^2009-4-6}
.LevelCount = 2
.UnitScale = 65536
.ResizeUnitScale = 1048576
endwith
.Items.AllowCellValueToItemBar = .T.
with .Items
.AddBar(.AddItem("T1"),"Task",{^2009-4-6 2:30:00},{^2009-4-6 12:35:00})
.AddBar(.AddItem("T2"),"Task",{^2009-4-6 9:00:00},{^2009-4-6 10:10:00})
endwith
.EndUpdate
endwith
|
|
1681
|
Does your control support working half-hour/minutes/seconds
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Tasks")
.AllowSizing = .F.
.Width = 36
endwith
with .Columns.Add("Working")
.Def(18) = 258
var_s = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ?"
var_s = var_s + " =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
.FormatColumn = var_s
endwith
with .Chart
.FirstVisibleDate = {^2009-4-6}
.PaneWidth(0) = 148
.LevelCount = 2
.UnitScale = 65536
.ResizeUnitScale = 1048576
.ResizeUnitCount = 15
.NonworkingHours = 15728767
.ShowNonworkingDates = .F.
.ShowNonworkingUnits = .F.
.ShowNonworkingHours = .F.
with .Bars
.Add("Task:Split").Shortcut = "Task"
.Item("Task").Def(20) = .T.
endwith
.AllowLinkBars = .F.
.UnitWidth = 26
endwith
.Items.AllowCellValueToItemBar = .T.
with .Items
h = .AddItem("T1")
.DefaultItem = h
.ItemNonworkingUnits(0,.F.) = "(weekday(value) in (1,2,3,4,5) and (timeF(value)<"+chr(34)+"09:30"+chr(34)+" or timeF(value)>="+chr(34)+"17:30"+chr(34)+")) or (weekday(value) in (0,6))"
.AddBar(h,"Task",{^2009-4-6 10:00:00},{^2009-4-6 12:30:00})
h = .AddItem("T2")
.DefaultItem = h
.ItemNonworkingUnits(0,.F.) = "(weekday(value) in (1,2,3,4,5) and (timeF(value)<"+chr(34)+"08:00"+chr(34)+" or timeF(value)>="+chr(34)+"16:00"+chr(34)+")) or (weekday(value) in (0,6))"
.AddBar(h,"Task",{^2009-4-6 9:30:00},{^2009-4-6 10:45:00})
endwith
.EndUpdate
endwith
|
|
1680
|
How can I programmatically move a bar to a specified date-time
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Original")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
h = .AddItem("Moved")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
duration = .ItemBar(h,"key",513)
.AddBar(h,"Task",{^2001-1-5},{^2001-1-5},"key")
.DefaultItem = h
.ItemBar(0,"key",513) = duration
endwith
.EndUpdate
endwith
|
|
1679
|
How can I programmatically move a bar, with a specified ammount
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Original")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
h = .AddItem("Moved")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
.DefaultItem = h
.ItemBar(0,"key",514) = 3
endwith
.EndUpdate
endwith
|
|
1678
|
How can I programmatically move a bar to a specified date-time (auto-adjust spans over a non-working period)
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
with .Bars
.Item("Task").Def(20) = .T.
.Add("Task:Split").Shortcut = "Task"
endwith
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Original")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
h = .AddItem("Moved")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
workingCount = .ItemBar(h,"key",258)
.AddBar(h,"Task",{^2001-1-5},{^2001-1-5},"key")
.DefaultItem = h
.ItemBar(0,"key",258) = workingCount
endwith
.EndUpdate
endwith
|
|
1677
|
How can I programmatically move a bar, with a specified ammount (auto-adjust spans over a non-working period)
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 64
with .Bars
.Item("Task").Def(20) = .T.
.Add("Task:Split").Shortcut = "Task"
endwith
endwith
.Columns.Add("Column")
with .Items
h = .AddItem("Original")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
h = .AddItem("Moved")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"key")
.DefaultItem = h
.ItemBar(0,"key",514) = 3
endwith
.EndUpdate
endwith
|
|
1676
|
How can I show a secondary curve, line in the control's histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
.AntiAliasing = .T.
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 1136 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramItems = 8
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
.Level(1).Label = "<font ;3><%d%>"
.UnitWidth = 9
with .Bars.Item("Summary")
.HistogramPattern = 1024
.HistogramColor = RGB(255,0,0)
.HistogramType = 0
.HistogramItems = 8
.HistogramBorderSize = 1
endwith
endwith
with .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.DefaultItem = h
.ItemHeight(0) = 0
.AddBar(h,"Summary",{^2005-1-1},{^2005-12-31},"1")
.DefaultItem = h
.ItemBar(0,"1",21) = "(value mod 31) array (1,1,1,2,1,2.5,3,4,5,4,3,2,1,2,2,3,4.5,4,5,6,7,6,1,2,3,1,1,1,2,3,2,2)"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-10},{^2005-7-16},"")
.DefaultItem = h
.ItemBar(0,"",21) = "weekday(value) in (0,6) ? 0.25 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-18},{^2005-7-21},"")
.DefaultItem = h
.ItemBar(0,"",21) = "weekday(value) = 1 ? 2.5 : .5"
endwith
.EndUpdate
endwith
|
|
1675
|
How can I add an owner-draw bar
*** AfterDrawPart event - Occurs right after drawing the part of the control. ***
LPARAMETERS Part,hDC,X,Y,Width,Height
with thisform.G2antt1
DEBUGOUT( "AfterDrawPart" )
DEBUGOUT( Part )
DEBUGOUT( .Items.CellCaption(thisform.G2antt1.DrawPartItem,0) )
DEBUGOUT( thisform.G2antt1.DrawPartKey )
endwith
*** BeforeDrawPart event - Occurs just before drawing a part of the control. ***
LPARAMETERS Part,hDC,X,Y,Width,Height,Cancel
with thisform.G2antt1
Cancel = .T.
DEBUGOUT( "BeforeDrawPart" )
DEBUGOUT( Part )
DEBUGOUT( .Items.CellCaption(thisform.G2antt1.DrawPartItem,0) )
DEBUGOUT( thisform.G2antt1.DrawPartKey )
endwith
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.LevelCount = 2
.Bars.Add("OwnerDraw")
endwith
with .Items
.AddBar(.AddItem("Draw-Item-Bar-1"),"OwnerDraw",{^2001-1-2},{^2001-1-5},"K1")
.AddBar(.AddItem("Draw-Item-Bar-2"),"OwnerDraw",{^2001-1-6},{^2001-1-9},"K1")
.ItemBar(0,"<*>",257) = .T.
endwith
.EndUpdate
endwith
|
|
1674
|
Is it possible to show a status left or right to the bar (method 2, exBarFrameColor, EBN)
with thisform.G2antt1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAChABP0IQAAYAQGKIaBoAKBQAGaAoDDYMQyQwAAxDOKsEwsACEIrjKCRShyCYZRrGUQyAKESRAGyTJBlKKodgOLYYSrFcgSIAsEhqGASRZGUBIJD"
var_s = var_s + "EMI4AJPIwxNIDfyNGKWI6gOQKIoSCYlU7IED0fQNGxVF6XaYqYAIRDINQlVzXcQzPYEbRxCKLKppWqIfpuSIBgI="
.Add(2,var_s)
.Add(1,"CP:2 -8 -1 0 0")
.Add(3,"CP:2 0 -1 0 0")
endwith
.Columns.Add("Task")
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
endwith
with .Items
h = .AddItem("Red-Status-Outside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
.DefaultItem = h
.ItemBar(0,"K1",51) = 16777471
h = .AddItem("Blue-Status-Outside")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",51) = 33488896
h = .AddItem("Red-Status-Inside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
.DefaultItem = h
.ItemBar(0,"K1",51) = 50331903
h = .AddItem("Blue-Status-Inside")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",51) = 67043328
endwith
.EndUpdate
endwith
|
|
1673
|
Is it possible to show a status left or right to the bar (method 1, exBarBackgroundExt)
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
endwith
with .Items
h = .AddItem("Red-Left-Status-Inside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "left[6,back=RGB(255,0,0)]"
h = .AddItem("Blue-Left-Status-Inside")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "left[6,back=RGB(0,0,255)]"
h = .AddItem("Red-Right-Status-Inside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "right[6,back=RGB(255,0,0)]"
h = .AddItem("Blue-Right-Status-Inside")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "right[6,back=RGB(0,0,255)]"
endwith
.EndUpdate
endwith
|
|
1672
|
How can I use the ItemBar(exBarBackgroundExt) property for a bar
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 31
.DrawGridLines = -1
.GridLineColor = RGB(224,224,224)
.BackColorLevelHeader = .BackColor
.Columns.Add("Task")
with .Chart
.LevelCount = 2
.Level(0).GridLineColor = thisform.G2antt1.GridLineColor
.Level(1).GridLineColor = thisform.G2antt1.GridLineColor
.ShowNonworkingDates = .F.
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
.Bars.Item("Task").Height = 21
.DrawGridLines = -1
endwith
with .Items
h = .AddItem("Normal")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
h = .AddItem("Red-Frame-Inside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "[frame=RGB(255,0,0),framethick]"
h = .AddItem("LR-Margins")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
h = .AddItem("LR-Margins (front)")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-7},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
.DefaultItem = h
.ItemBar(0,"K1",54) = 2
h = .AddItem("LR-Margins (back)")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-8},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
.DefaultItem = h
.ItemBar(0,"K1",54) = 3
h = .AddItem("TB-Margins")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-9},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "top[4,back=RGB(255,0,0)],bottom[4,back=RGB(0,255,0)]"
h = .AddItem("TB-Margins")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-10},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "top[2,back=RGB(255,0,0)],bottom[2,back=RGB(0,255,0)]"
.DefaultItem = h
.ItemBar(0,"K1",54) = 2
h = .AddItem("Caption(back)")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-11},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "client(bottom[14,text=`<sha ;;0><font ;8>background`,align=0x11])"
.DefaultItem = h
.ItemBar(0,"K1",54) = 2
h = .AddItem("Pattern-Outside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-12},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "bottom[10%,pattern=7,frame]"
.DefaultItem = h
.ItemBar(0,"K1",54) = 2
h = .AddItem("Pattern-Inside")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-13},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "bottom[7,pattern=3,frame]"
h = .AddItem("Pattern-Inside-Caption")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-12},"K1")
.DefaultItem = h
var_s = "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[75%,text=`<fgcolor FFFFFF>75%`,a"
var_s = var_s + "lign=0x11,pattern=0x001,frame=RGB(255,0,0)])"
.ItemBar(0,"K1",53) = var_s
h = .AddItem("Complex(back)")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-11},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])"
.DefaultItem = h
.ItemBar(0,"K1",54) = 3
h = .AddItem("Complex(inside)")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-12},"K1")
.DefaultItem = h
.ItemBar(0,"K1",53) = "top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])"
endwith
.EndUpdate
endwith
|
|
1671
|
How can display seconds
with thisform.G2antt1
with .Chart
.PaneWidth(0) = 96
.FirstVisibleDate = {^2008-1-17}
.LevelCount = 2
.UnitScale = 16777216
.Level(0).Alignment = 17 && AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
.Level(1).FormatLabel = "(0:=sec(dvalue)) mod 10 ? 0=: : '<c><font ;6>sec<br><b>' + 0=:"
endwith
.Columns.Add("Tasks")
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2008-1-17 0:00:02},{^2008-1-17 0:00:08})
.AddBar(.AddItem("Task 2"),"Task",{^2008-1-17 0:00:05},{^2008-1-17 0:00:15})
endwith
endwith
|
|
1670
|
How can I check if an item contains a bar
*** SelectionChanged event - Fired after a new item has been selected. ***
LPARAMETERS nop
with thisform.G2antt1
with .Items
DEBUGOUT( "Count of A: " )
DEBUGOUT( .ItemBar(.FocusItem,"A",256) )
DEBUGOUT( "Count of B: " )
DEBUGOUT( .ItemBar(.FocusItem,"B",256) )
DEBUGOUT( "Count of C: " )
DEBUGOUT( .ItemBar(.FocusItem,"C",256) )
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
with .Chart
.LevelCount = 2
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 48
.Bars.Item("Task").Def(4) = 18
endwith
with .Items
.AddBar(.AddItem("Task"),"Task",{^2001-1-2},{^2001-1-4},"A","A")
.AddBar(.AddItem("Task"),"Task",{^2001-1-2},{^2001-1-4},"B","B")
.AddBar(.AddItem("Task"),"Task",{^2001-1-2},{^2001-1-4},"C","C")
endwith
.EndUpdate
endwith
|
|
1669
|
How can I connect to a DBF file
with thisform.G2antt1
.BeginUpdate
.ColumnAutoResize = .F.
.ContinueColumnScroll = .F.
rs = CreateObject("ADODB.Recordset")
with rs
.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
endwith
.DataSource = rs
.Chart.PaneWidth(1) = 0
.EndUpdate
endwith
|
|
1668
|
How do I get the caption with no HTML format
with thisform.G2antt1
.Columns.Add("Default")
with .Items
h = .AddItem("This is a bit of <b>HTML-formatted</b> text")
.DefaultItem = h
.CellValueFormat(0,0) = 1
.AddItem(.CellCaption(h,0))
endwith
endwith
|
|
1667
|
How can I change the bar's color based on its length/duration
with thisform.G2antt1
.BeginUpdate
with .Columns
.Add("Tasks")
with .Add("Duration")
.Def(18) = 513
.Editor.EditType = 4
endwith
endwith
.Items.AllowCellValueToItemBar = .T.
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.FirstVisibleDate = {^2005-6-6}
.PaneWidth(0) = 128
endwith
with .ConditionalFormats.Add("%1 >= 4")
.ApplyTo = 1 && 0x1
.Bold = .T.
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
.ForeColor = .BarColor
endwith
with .Items
.AddBar(.AddItem("Task"),"Task",{^2005-6-10},{^2005-6-13},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-11},{^2005-6-16},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-12},{^2005-6-15},"")
endwith
.EndUpdate
endwith
|
|
1666
|
Is it possible to colorize the bars based on its starting/ending date
with thisform.G2antt1
.BeginUpdate
.OnResizeControl = 129 && OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
with .Columns
.Add("Tasks")
with .Add("Start")
.Def(18) = 1
.Visible = .F.
endwith
endwith
.Items.AllowCellValueToItemBar = .T.
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.FirstVisibleDate = {^2005-5-31}
.PaneWidth(0) = 0
.AllowInsideZoom = .T.
.AllowResizeInsideZoom = .F.
.InsideZoomOnDblClick = .F.
with .DefaultInsideZoomFormat
.PatternChart = 6
.PatternColorChart = RGB(255,0,0)
.ForeColor = .PatternColorChart
endwith
with .InsideZooms
.SplitBaseLevel = .F.
.DefaultWidth = 18
.Add({^2005-6-10}).AllowInsideFormat = .F.
endwith
endwith
with .ConditionalFormats.Add("%1 <= #6/10/2005#")
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
endwith
with .Items
.AddBar(.AddItem("Task"),"Task",{^2005-6-10},{^2005-6-14},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-11},{^2005-6-15},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-12},{^2005-6-16},"")
endwith
.EndUpdate
endwith
|
|
1665
|
How can I change the bar's color based on values on the columns
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
with thisform.G2antt1
with .Items
.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
endwith
endwith
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^1994-8-3}
.PaneWidth(0) = 256
.LevelCount = 2
.UnitScale = 4096
.FirstWeekDay = 1
.OverviewVisible = 2
endwith
.ColumnAutoResize = .F.
.ContinueColumnScroll = .F.
rs = CreateObject("ADOR.Recordset")
with rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
endwith
.DataSource = rs
.Items.AllowCellValueToItemBar = .T.
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
with .ConditionalFormats
with .Add("1")
.ApplyTo = 1 && 0x1
.Bold = .T.
.BackColor = RGB(250,250,250)
endwith
with .Add("%1 = 5")
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
.ForeColor = RGB(255,0,0)
.BarOverviewColor = RGB(255,0,0)
endwith
with .Add("%1 = 3")
.ApplyToBars = "Task"
.BarColor = RGB(0,255,0)
.ForeColor = RGB(0,255,0)
.BarOverviewColor = RGB(0,255,0)
endwith
endwith
.EndUpdate
endwith
|
|
1664
|
How can I display / specify a fixed percent for the task in the histogram, no matter how long the task is
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 32
.Columns.Add("Tasks")
with .Chart
.UnitWidth = 32
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 64
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 64
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 1
.ShowHistogramValues = 1
endwith
with .Bars.Copy("Task","TaskFixed")
.HistogramType = 513 && HistogramTypeEnum.exHistOverAllocationFixed Or HistogramTypeEnum.exHistOverAllocation
.ShowHistogramValues = 1
endwith
with .Bars.Copy("Task","TaskMultiply")
.HistogramType = 1025 && HistogramTypeEnum.exHistOverAllocationMultiply Or HistogramTypeEnum.exHistOverAllocation
.ShowHistogramValues = 1
endwith
endwith
with .Items
h = .AddItem("Allocation")
.AddBar(h,"Task",{^2005-6-21},{^2005-6-23},"A","Effort/Length")
.DefaultItem = h
.ItemBar(0,"A",21) = 0.25
.DefaultItem = h
.ItemBar(0,"A",5) = 18
.AddBar(h,"TaskFixed",{^2005-6-24},{^2005-6-26},"B","Effort")
.DefaultItem = h
.ItemBar(0,"B",21) = 0.25
.DefaultItem = h
.ItemBar(0,"B",5) = 18
.AddBar(h,"TaskMultiply",{^2005-6-27},{^2005-6-29},"C","Effort*Length")
.DefaultItem = h
.ItemBar(0,"C",21) = 0.25
.DefaultItem = h
.ItemBar(0,"C",5) = 18
endwith
.EndUpdate
endwith
|
|
1663
|
Does your control supports scrolling by touching the screen
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
with thisform.G2antt1
with .Items
.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
endwith
endwith
with thisform.G2antt1
.BeginUpdate
with .Chart
.FirstVisibleDate = {^1994-8-3}
.PaneWidth(0) = 256
.LevelCount = 2
.UnitScale = 4096
.FirstWeekDay = 1
.OverviewVisible = 2
endwith
.ColumnAutoResize = .F.
.ContinueColumnScroll = .F.
rs = CreateObject("ADOR.Recordset")
with rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
endwith
.DataSource = rs
.Items.AllowCellValueToItemBar = .T.
.Columns.Item(2).Def(18) = 1
.Columns.Item(4).Def(18) = 2
.ContinueColumnScroll = .T.
.ScrollBySingleLine = .T.
.Chart.AllowCreateBar = 0
.AutoDrag = 4112 && AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
.EndUpdate
endwith
|
|
1662
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (zoom-onfly)
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
with .Chart
.UnitScale = 4096
.PaneWidth(0) = 0
.LevelCount = 2
.FirstVisibleDate = {^2001-1-1}
.DrawGridLines = -1
.AllowZoomOnFly = 24
.ResizeUnitScale = 65536
.ResizeUnitCount = 4
.Label(65536) = "<font ;5><b><%h%><br><%AM/PM%></b></font><||>4<||>65536"
.ZoomOnFlyCaption = "<br><c><b><font ;12><%=%C0%>"
endwith
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-7},{^2001-1-10},"T1","T1")
.AddBar(h,"Task",{^2001-1-11},{^2001-1-14},"T3","T3")
h = .AddItem()
.AddBar(h,"",{^2001-1-15},{^2001-1-15},"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
.DefaultItem = h
.SelectableItem(0) = .F.
endwith
.EndUpdate
endwith
|
|
1661
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (inside-zoom)
with thisform.G2antt1
.BeginUpdate
with .Chart
.UnitScale = 4096
.PaneWidth(0) = 0
.LevelCount = 2
.FirstVisibleDate = {^2008-1-1}
with .DefaultInsideZoomFormat
.InsideLabel = "<%hh%>"
.InsideUnit = 65536
.InsideCount = 8
endwith
.AllowInsideZoom = .T.
with .InsideZooms
.Add({^2008-1-4})
endwith
.DrawGridLines = -1
endwith
.EndUpdate
endwith
|
|
1660
|
How can I export the control's content to a PDF document (method 1)
with thisform.G2antt1
.BeginUpdate
.MarkSearchColumn = .F.
with .Columns
.Add("Tasks")
with .Add("Start")
.Def(18) = 1
.Editor.EditType = 4
endwith
with .Add("End")
.Def(18) = 2
.Editor.EditType = 4
endwith
endwith
with .Chart
.PaneWidth(0) = 196
.LevelCount = 2
.ShowEmptyBars = 1
.FirstVisibleDate = {^2009-1-1}
endwith
with .Items
.AllowCellValueToItemBar = .T.
.AddBar(.AddItem("Task 1"),"Task",{^2009-1-2},{^2009-1-7})
.AddBar(.AddItem("Task 2"),"Task",{^2009-1-4},{^2009-1-9})
endwith
with CreateObject("Exontrol.Print")
.PrintExt = thisform.G2antt1.Object
.CopyTo("c:/temp/xtest.pdf")
endwith
DEBUGOUT( "Look for C:\Temp\xtest.pdf file." )
.EndUpdate
endwith
|
|
1659
|
How can I export the control's content to a PDF document (method 2)
with thisform.G2antt1
.BeginUpdate
.MarkSearchColumn = .F.
with .Columns
.Add("Tasks")
with .Add("Start")
.Def(18) = 1
.Editor.EditType = 4
endwith
with .Add("End")
.Def(18) = 2
.Editor.EditType = 4
endwith
endwith
with .Chart
.PaneWidth(0) = 196
.LevelCount = 2
.ShowEmptyBars = 1
.FirstVisibleDate = {^2009-1-1}
endwith
with .Items
.AllowCellValueToItemBar = .T.
.AddBar(.AddItem("Task 1"),"Task",{^2009-1-2},{^2009-1-7})
.AddBar(.AddItem("Task 2"),"Task",{^2009-1-4},{^2009-1-9})
endwith
var_CopyTo = .CopyTo("c:/temp/xtest.pdf")
DEBUGOUT( "Look for C:\Temp\xtest.pdf file." )
.EndUpdate
endwith
|
|
1658
|
Today date is shown, if we use the Column.FormatColumn and Editor.Option(exDateAllowNullDate) properties. What can be done
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Date")
var_s = "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) rig"
var_s = var_s + "ht 2) ) : '' )"
.FormatColumn = var_s
with .Editor
.EditType = 7
.Option(14) = .T.
endwith
endwith
with .Items
.AddItem({^2012-5-12})
.AddItem()
.AddItem({^2012-5-14})
endwith
.EndUpdate
endwith
|
|
1657
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Item,ColIndex
with thisform.G2antt1
with .Items
.DefaultItem = Item
.CellValue(0,2) = .CellState(Item,0)
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.ShowFocusRect = .F.
.SelBackMode = 1
var_ConditionalFormat = .ConditionalFormats.Add("%2 != 0")
with var_ConditionalFormat
.Bold = .T.
.ForeColor = RGB(255,0,0)
.ApplyTo = -1
endwith
with .Columns.Add("")
.Def(0) = .T.
.Width = 16
.AllowSizing = .F.
endwith
.Columns.Add("Information")
.Columns.Add("Hidden").Visible = .F.
with .Items
.DefaultItem = .AddItem("")
.CellValue(0,1) = "This is a bit of text associated"
h = .AddItem("")
.DefaultItem = h
.CellValue(0,1) = "This is a bit of text associated"
.DefaultItem = h
.CellState(0,0) = 1
.DefaultItem = .AddItem("")
.CellValue(0,1) = "This is a bit of text associated"
endwith
.EndUpdate
endwith
|
|
1656
|
How can I hide the items/grid section of the control
with thisform.G2antt1
.BeginUpdate
.OnResizeControl = 129 && OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
.Columns.Add("Tasks")
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 128
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
endwith
.PaneWidth(0) = 0
endwith
with .Items
.AddBar(.AddItem("Task"),"Task",{^2005-6-10},{^2005-6-14},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-11},{^2005-6-15},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-12},{^2005-6-16},"")
endwith
.EndUpdate
endwith
|
|
1655
|
How can I draw an extra line which could indicate deadline for my tasks
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 24
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAChABLMIQAAYAQGKIaBoAKBQAGaAoDDQOQ4QwAAxjAKUEwsACEIrjKCYVgOHYYRrIIEvZAAMIlSbCMoxcAsSQSf6YJBmKL4fiWMobRCMQyiLLMdw"
var_s = var_s + "iGoYJ4hGgKChqI43RZNErURRkEwCgIA="
.Add(2,var_s)
.Add(1,"CP:2 0 -4 0 4")
endwith
.Columns.Add("Task")
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 128
endwith
with .Items
h = .AddItem("Default")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
.DefaultItem = h
.ItemBar(0,"K1",51) = 16777471
.AddBar(h,"Task",{^2001-1-9},{^2001-1-14},"K2")
.DefaultItem = h
.ItemBar(0,"K2",51) = 33488896
endwith
.EndUpdate
endwith
|
|
1654
|
How can I mark/highlight a zone in the control's histogram
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 128
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
.AddBar(.AddItem("Task"),"Task",{^2005-6-10},{^2005-6-14},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-11},{^2005-6-15},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-12},{^2005-6-16},"")
endwith
.Chart.MarkTimeZone("zone",{^2005-6-13},{^2005-6-14},15790320,";;;;histogram;1")
.EndUpdate
endwith
|
|
1653
|
How can I get the min/max values from the histogram
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.G2antt1
with .Chart
DEBUGOUT( "Value" )
DEBUGOUT( .HistogramValue(.DateFromPoint(-1,-1)) )
DEBUGOUT( "MIN" )
DEBUGOUT( .HistogramValue("min") )
DEBUGOUT( "MAX" )
DEBUGOUT( .HistogramValue("max") )
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 128
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
.AddBar(.AddItem("Task"),"Task",{^2005-6-10},{^2005-6-14},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-11},{^2005-6-15},"")
.AddBar(.AddItem("Task"),"Task",{^2005-6-12},{^2005-6-16},"")
endwith
.EndUpdate
endwith
|
|
1652
|
How can I assign different efforts(expression) to the same bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.FirstWeekDay = 1
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 128
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
.Level(1).Label = "<font ;3><%d%>"
.UnitWidth = 9
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-10},{^2005-6-14},"")
.DefaultItem = h
.ItemBar(0,"",21) = "weekday(value) in (0,6) ? 0.25 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-18},{^2005-6-21},"")
.DefaultItem = h
.ItemBar(0,"",21) = "weekday(value) = 1 ? 2 : 1"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-27},{^2005-7-9},"")
.DefaultItem = h
.ItemBar(0,"",21) = "month (value) = 7 ? 1 : 0"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-27},{^2005-7-5},"")
.DefaultItem = h
.ItemBar(0,"",21) = "(month(value)=month(value+1)) ? 1 : 0"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-22},{^2005-6-26},"")
.DefaultItem = h
.ItemBar(0,"",21) = "int(value-start) ? 1 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-7-10},{^2005-7-14},"")
.DefaultItem = h
.ItemBar(0,"",21) = "(int(value-start) and int(end-value) != 0 ) ? 1 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-7-15},{^2005-7-22},"")
.DefaultItem = h
.ItemBar(0,"",21) = "(int(value-start)+1) mod 2 ? 1 : 0"
endwith
.EndUpdate
endwith
|
|
1651
|
How can I prevent showing the representation of the bar on the week days, nonworking part
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.LevelCount = 2
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-9}
.HistogramVisible = .T.
.HistogramView = 112
.HistogramHeight = 128
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2005-6-10},{^2005-6-21},"")
.DefaultItem = h
.ItemBar(0,"",21) = "weekday(value) in (0,6) ? 0 : 2"
endwith
.EndUpdate
endwith
|
|
1650
|
How do I programatically focus a cell
*** FocusChanged event - Occurs when a cell gets the focus. ***
LPARAMETERS nop
with thisform.G2antt1
with .Items
.DefaultItem = .FocusItem
.CellBackColor(0,thisform.G2antt1.FocusColumnIndex) = RGB(255,0,0)
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.DrawGridLines = -2
with .Columns
.Add("Column1")
.Add("Column2")
endwith
with .Items
.DefaultItem = .AddItem("Cell 1.1")
.CellValue(0,1) = "Cell 1.2"
.DefaultItem = .AddItem("Cell 2.1")
.CellValue(0,1) = "Cell 2.2"
endwith
with .Items
.DefaultItem = .ItemByIndex(1)
.SelectItem(0) = .T.
endwith
.FocusColumnIndex = 1
.EndUpdate
endwith
|
|
1649
|
How do I programatically focus a cell (excrd)
*** FocusChanged event - Occurs when a cell gets the focus. ***
LPARAMETERS nop
with thisform.G2antt1
with .Items
.DefaultItem = .FocusItem
.CellBackColor(0,thisform.G2antt1.FocusColumnIndex) = RGB(255,0,0)
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.DrawGridLines = -2
.DefaultItemHeight = 36
with .Columns
.Add("Column1").Visible = .F.
.Add("Column2").Visible = .F.
.Add("Column3").Visible = .F.
with .Add("FormatLevel")
.FormatLevel = "(0/1),2"
.Def(32) = .FormatLevel
endwith
endwith
with .Items
h = .AddItem("Cell 1.1")
.DefaultItem = h
.CellValue(0,1) = "Cell 1.2"
.DefaultItem = h
.CellValue(0,2) = "Cell 1.3"
h = .AddItem("Cell 2.1")
.DefaultItem = h
.CellValue(0,1) = "Cell 2.2"
.DefaultItem = h
.CellValue(0,2) = "Cell 2.3"
endwith
with .Items
.DefaultItem = .ItemByIndex(1)
.SelectItem(0) = .T.
endwith
.FocusColumnIndex = 2
.EndUpdate
endwith
|
|
1648
|
How can I get task's user data ( exBarData ) when user double clicks the bar
*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift,X,Y
with thisform.G2antt1
item = .ItemFromPoint(-1,-1,c,hit)
key = .Chart.BarFromPoint(-1,-1)
DEBUGOUT( .Items.ItemBar(item,key,17) )
endwith
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 48
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
.DefaultItem = h
.ItemBar(0,"",17) = "this is a bit of extra data associated with task 1"
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
.DefaultItem = h
.ItemBar(0,"",17) = "this is a bit of extra data associated with task 2"
endwith
.EndUpdate
endwith
|
|
1647
|
How do I get arranged the levels to display, weeks, days and so on
with thisform.G2antt1
.BeginUpdate
with .Chart
.UnitWidth = 24
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 0
.LevelCount = 2
.FirstWeekDay = 1
with .Level(0)
.Alignment = 1
.Label = "<b><Font Tahoma;7><%m3%>, <%yyyy%></b><b>, <Font Tahoma;7>Wk <%ww%>"
.Unit = 256
.DrawGridLines = .T.
endwith
with .Level(1)
.Alignment = 1
.Label = "<Font Tahoma;7><%d%>"
.Unit = 4096
endwith
.DrawGridLines = -1
endwith
.EndUpdate
endwith
|
|
1646
|
How can I add a task and a milestone to the same item
with thisform.G2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Milestone",{^2001-1-2},{^2001-1-2},"MKey")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-7})
endwith
endwith
|
|
1645
|
How can I change the visual appearance of the buttons on the control's overview part
with thisform.G2antt1
var_s = "gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfI"
var_s = var_s + "MIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pS"
var_s = var_s + "rAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBt"
var_s = var_s + "hsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAH"
var_s = var_s + "QDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlE"
var_s = var_s + "kZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQo"
var_s = var_s + "WC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCS"
var_s = var_s + "SQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGAU"
var_s = var_s + "gUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoS"
var_s = var_s + "oihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBc"
var_s = var_s + "GUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBA"
var_s = var_s + "AgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U"
var_s = var_s + "48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHH"
var_s = var_s + "KBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDg"
var_s = var_s + "wjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAc"
var_s = var_s + "MIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHiJ"
var_s = var_s + "DAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwl"
var_s = var_s + "A4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+K"
var_s = var_s + "oAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhaj"
var_s = var_s + "UEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC"
.VisualAppearance.Add(1,var_s)
with .Chart
.PaneWidth(0) = 0
.LevelCount = 2
.OverviewVisible = 2
.AllowOverviewZoom = 1
.Label(16777216) = ""
.Label(0) = ""
endwith
.Chart.OverviewSelBackColor = 0x1ffff00
endwith
|
|
1644
|
Is there a way to show the Start and End dates in mm-dd-yyyy format
with thisform.G2antt1
.BeginUpdate
.MarkSearchColumn = .F.
.Items.AllowCellValueToItemBar = .T.
with .Chart
.LevelCount = 2
.FirstVisibleDate = {^2000-12-25}
.PaneWidth(0) = 196
endwith
with .Columns.Add("Start")
.Def(18) = 1
.Def(19) = "K1"
.FormatColumn = "(0 array (0:=(shortdateF(value) split `/`))) + `-` + (1 array (=:0) ) + `-` + (2 array (=:0) )"
endwith
with .Columns.Add("End")
.Def(18) = 2
.Def(19) = "K1"
.FormatColumn = "shortdateF(value) replace `/` with `-`"
endwith
with .Items
.AddBar(.AddItem(),"Task",{^2001-1-1},{^2001-1-5},"K1")
.AddBar(.AddItem(),"Task",{^2001-1-2},{^2001-1-6},"K1")
endwith
.EndUpdate
endwith
|
|
1643
|
Is there a way to show the Start and End dates in dd-mm-yyyy format
with thisform.G2antt1
.BeginUpdate
.MarkSearchColumn = .F.
.Items.AllowCellValueToItemBar = .T.
with .Chart
.LevelCount = 2
.FirstVisibleDate = {^2000-12-25}
.PaneWidth(0) = 196
endwith
with .Columns.Add("Start")
.Def(18) = 1
.Def(19) = "K1"
.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
endwith
with .Columns.Add("End")
.Def(18) = 2
.Def(19) = "K1"
.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
endwith
with .Items
.AddBar(.AddItem(),"Task",{^2001-1-1},{^2001-1-5},"K1")
.AddBar(.AddItem(),"Task",{^2001-1-2},{^2001-1-6},"K1")
endwith
.EndUpdate
endwith
|
|
1642
|
If we have bars with dark color, we use white font/color. But if the bars are too small for the caption, you cant read it. What can we do
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2000-12-29}
.Chart.PaneWidth(0) = 48
with .Chart.Bars.Item("Task")
.Pattern = 1
.Height = 17
endwith
with .Chart.Bars.Item("Progress")
.Pattern = 1
.Height = 17
.Shape = 1
.Color = RGB(0,0,255)
endwith
with .Chart.Bars.Add("Task%Progress")
.Pattern = 1
.Height = 17
.Shortcut = "Percent"
endwith
.DefaultItemHeight = 21
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"")
.DefaultItem = h
.ItemBar(0,"",33) = 4112616
.DefaultItem = h
.ItemBar(0,"",3) = "<fgcolor=FFFFFF><sha 0;;0>Pause"
.AddBar(h,"Task",{^2001-1-9},{^2001-1-12},"white")
.DefaultItem = h
.ItemBar(0,"white",33) = 4112616
.DefaultItem = h
.ItemBar(0,"white",3) = "<fgcolor=FFFFFF>Pause"
h = .AddItem("Task 2")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-4},"")
.DefaultItem = h
.ItemBar(0,"",33) = 2017557
.DefaultItem = h
.ItemBar(0,"",3) = "<fgcolor=FFFFFF><sha 0;;0>Production"
.AddBar(h,"Task",{^2001-1-10},{^2001-1-11},"white")
.DefaultItem = h
.ItemBar(0,"white",33) = 2017557
.DefaultItem = h
.ItemBar(0,"white",3) = "<fgcolor=FFFFFF>Production"
h = .AddItem("Task 3")
.AddBar(h,"Percent",{^2001-1-3},{^2001-1-4},"")
.DefaultItem = h
.ItemBar(0,"",12) = 0.5
.DefaultItem = h
.ItemBar(0,"",33) = 2017557
.DefaultItem = h
.ItemBar(0,"",3) = "<fgcolor=FFFFFF><sha 0;;0>Pausing"
.AddBar(h,"Percent",{^2001-1-10},{^2001-1-11},"white")
.DefaultItem = h
.ItemBar(0,"white",12) = 0.5
.DefaultItem = h
.ItemBar(0,"white",33) = 2017557
.DefaultItem = h
.ItemBar(0,"white",3) = "<fgcolor=FFFFFF>Pausing"
h = .AddItem("Task 4")
.AddBar(h,"Task",{^2001-1-3},{^2001-1-4},"")
.DefaultItem = h
.ItemBar(0,"",33) = 8421504
.DefaultItem = h
.ItemBar(0,"",3) = "<fgcolor=FFFFFF><sha 0;;0>Planned downtime"
.AddBar(h,"Task",{^2001-1-10},{^2001-1-11},"white")
.DefaultItem = h
.ItemBar(0,"white",33) = 8421504
.DefaultItem = h
.ItemBar(0,"white",3) = "<fgcolor=FFFFFF>Planned downtime"
endwith
.EndUpdate
endwith
|
|
1641
|
How do I programmatically exclude items from the filter
with thisform.G2antt1
.BeginUpdate
.LinesAtRoot = -1
with .Columns.Add("Items")
.DisplayFilterButton = .T.
.DisplayFilterPattern = .F.
.FilterList = 9472 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
endwith
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
endwith
with .Columns.Item(0)
.FilterType = 752 && FilterTypeEnum.exFilterExclude Or FilterTypeEnum.exFilter
.Filter = "Item 1|Item 4"
endwith
.ApplyFilter
.EndUpdate
endwith
|
|
1640
|
How do I show in histogram, more values for a single task
*** BeforeExpandItem event - Fired before an item is about to be expanded (collapsed). ***
LPARAMETERS Item,Cancel
with thisform.G2antt1
Cancel = .T.
endwith
with thisform.G2antt1
.BeginUpdate
.SingleSel = .T.
.ExpandOnDblClick = .F.
with .Chart
.LevelCount = 2
.AllowLinkBars = .F.
.DrawGridLines = -1
.FirstVisibleDate = {^2000-12-29}
.HistogramVisible = .T.
.HistogramHeight = 167
.PaneWidth(0) = 128
.HistogramView = 1040 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramUnlockedItems
with .Bars.Item("Task")
.HistogramType = 256
.HistogramItems = 6
.HistogramPattern = 1
.HistogramItems = -40000
.HistogramCriticalValue = 100000
.HistogramRulerLinesColor = RGB(128,128,128)
.HistogramCumulativeColors = 3
endwith
.ShowNonworkingDates = .F.
endwith
.Columns.Add("Costs").Visible = .F.
.Columns.Add("Tasks").Visible = .T.
with .Items
h = .AddItem("Estimated")
.DefaultItem = h
.CellValue(0,1) = "Task 1"
.AddBar(h,"Task",{^2001-1-1},{^2001-1-10})
.DefaultItem = h
.ItemBar(0,"",21) = 8000
hR = .InsertItem(h,Null,"Actual")
.AddBar(hR,"Task",{^2001-1-1},{^2001-1-10})
.DefaultItem = hR
.ItemBar(0,"",21) = 9000
.GroupBars(h,"",.T.,hR,"",.T.)
.GroupBars(h,"",.F.,hR,"",.F.)
hR = .InsertItem(h,Null,"Cost")
.AddBar(hR,"Task",{^2001-1-1},{^2001-1-10})
.DefaultItem = hR
.ItemBar(0,"",21) = 200
.GroupBars(h,"",.T.,hR,"",.T.)
.GroupBars(h,"",.F.,hR,"",.F.)
h = .AddItem("Estimated")
.DefaultItem = h
.CellValue(0,1) = "Task 2"
.AddBar(h,"Task",{^2001-1-9},{^2001-1-15})
.DefaultItem = h
.ItemBar(0,"",21) = 7000
hR = .InsertItem(h,Null,"Actual")
.AddBar(hR,"Task",{^2001-1-9},{^2001-1-15})
.DefaultItem = hR
.ItemBar(0,"",21) = 8000
.GroupBars(h,"",.T.,hR,"",.T.)
.GroupBars(h,"",.F.,hR,"",.F.)
hR = .InsertItem(h,Null,"Cost")
.AddBar(hR,"Task",{^2001-1-9},{^2001-1-15})
.DefaultItem = hR
.ItemBar(0,"",21) = 150
.GroupBars(h,"",.T.,hR,"",.T.)
.GroupBars(h,"",.F.,hR,"",.F.)
endwith
.EndUpdate
endwith
|
|
1639
|
How can I align the caption of the bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Chart
.FirstVisibleDate = {^2000-12-25}
.PaneWidth(0) = 48
endwith
with .Items
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","exBarHAlignCaption = 0")
.DefaultItem = h
.ItemBar(0,"K",4) = 0
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","exBarHAlignCaption = 1")
.DefaultItem = h
.ItemBar(0,"K",4) = 1
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","exBarHAlignCaption = 2")
.DefaultItem = h
.ItemBar(0,"K",4) = 2
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","Clip 3")
.DefaultItem = h
.ItemBar(0,"K",4) = 3
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","Clip 4")
.DefaultItem = h
.ItemBar(0,"K",4) = 4
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","Clip 5")
.DefaultItem = h
.ItemBar(0,"K",4) = 5
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","Outside Left 16")
.DefaultItem = h
.ItemBar(0,"K",4) = 16
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","Outside Right 18")
.DefaultItem = h
.ItemBar(0,"K",4) = 18
h = .AddItem("Task")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K","Outside Center 17")
.DefaultItem = h
.ItemBar(0,"K",4) = 17
endwith
.EndUpdate
endwith
|
|
1638
|
How can I change the drop down filter background color
with thisform.G2antt1
.BeginUpdate
.LinesAtRoot = -1
.Object.Background(26) = RGB(255,255,255)
with .Columns.Add("Items")
.DisplayFilterButton = .T.
.DisplayFilterPattern = .F.
.FilterList = 1315 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc Or FilterListEnum.exLeafItems
endwith
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.InsertItem(h,Null,"Child 3")
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
1637
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 2)
with thisform.G2antt1
.BeginUpdate
.DrawGridLines = -1
.DefaultItemHeight = 36
with .Columns
with .Add("C1")
.Def(0) = .T.
.Width = 18
.AllowSizing = .F.
endwith
with .Add("C2")
.Def(0) = .T.
.Width = 18
endwith
.Add("Column1").Visible = .F.
.Add("Column2").Visible = .F.
.Add("Column3").Visible = .F.
with .Add("FormatLevel")
.FormatLevel = "18;"+chr(34)+"Info"+chr(34)+"[a=17]/(2/3,4)"
.Def(32) = "2/3,4"
endwith
endwith
with .Chart
.DrawGridLines = -1
.FirstVisibleDate = {^2014-6-22}
endwith
with .Items
h = .AddItem("Cell 1.1")
.DefaultItem = h
.CellValue(0,1) = "Cell 1.2"
.DefaultItem = h
.CellValue(0,2) = "Cell 1.3"
.AddBar(h,"Task",{^2014-6-23},{^2014-6-25})
h = .AddItem("Cell 2.1")
.DefaultItem = h
.CellValue(0,1) = "Cell 2.2"
.DefaultItem = h
.CellValue(0,2) = "Cell 2.3"
.AddBar(h,"Task",{^2014-6-26},{^2014-6-28})
endwith
.EndUpdate
endwith
|
|
1636
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 1)
with thisform.G2antt1
.BeginUpdate
.DrawGridLines = -1
.DefaultItemHeight = 36
with .Columns
.Add("Column1").Visible = .F.
.Add("Column2").Visible = .F.
.Add("Column3").Visible = .F.
with .Add("FormatLevel")
.FormatLevel = "(0/1),2"
.Def(32) = .FormatLevel
endwith
endwith
with .Chart
.DrawGridLines = -1
.FirstVisibleDate = {^2014-6-22}
endwith
with .Items
h = .AddItem("Cell 1.1")
.DefaultItem = h
.CellValue(0,1) = "Cell 1.2"
.DefaultItem = h
.CellValue(0,2) = "Cell 1.3"
.AddBar(h,"Task",{^2014-6-23},{^2014-6-25})
h = .AddItem("Cell 2.1")
.DefaultItem = h
.CellValue(0,1) = "Cell 2.2"
.DefaultItem = h
.CellValue(0,2) = "Cell 2.3"
.AddBar(h,"Task",{^2014-6-26},{^2014-6-28})
endwith
.EndUpdate
endwith
|
|
1635
|
How do I display the histogram for filtered items only
with thisform.G2antt1
.BeginUpdate
.SingleSel = .F.
with .Chart
.FirstVisibleDate = {^2001-1-1}
.LevelCount = 2
.HistogramVisible = .T.
.HistogramHeight = 32
.HistogramView = 128
.Bars.Item("Task").HistogramPattern = 6
endwith
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.Filter = "Item 1"
.FilterType = 240
endwith
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
endwith
.ApplyFilter
.EndUpdate
endwith
|
|
1634
|
How can I use no scroll bars for touch-screens
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
with thisform.G2antt1
with .Items
.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
endwith
endwith
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.G2antt1
.ShowToolTip("<font ;6><sha ;;0><off -4>Tip</off></sha></font> If the cursor hovers bars, click and wait for a second to start scrolling.")
endwith
with thisform.G2antt1
.BeginUpdate
with .Chart
.AllowCreateBar = 0
.FirstVisibleDate = {^1994-8-3}
.PaneWidth(0) = 256
.LevelCount = 2
.UnitScale = 4096
.FirstWeekDay = 1
.OverviewVisible = 2
endwith
.ColumnAutoResize = .F.
.ContinueColumnScroll = .F.
rs = CreateObject("ADOR.Recordset")
with rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
endwith
.DataSource = rs
.AutoDrag = 16
.ScrollWidth = 4
.ScrollHeight = 4
.Object.Background(384) = RGB(192,192,192)
.Object.Background(392) = RGB(192,192,192)
.Object.Background(404) = RGB(224,224,224)
.Object.Background(388) = RGB(128,128,128)
.Object.Background(276) = RGB(224,224,224)
.Object.Background(264) = RGB(192,192,192)
.Object.Background(260) = RGB(128,128,128)
.Object.Background(256) = RGB(192,192,192)
.ScrollButtonWidth = 0
.ScrollButtonHeight = 0
.EndUpdate
endwith
|
|
1633
|
How can I display values in the histogram legend
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
with .Columns.Add("Effort")
.Def(18) = 21
.Editor.EditType = 4
endwith
with .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 96
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 128
.HistogramView = 112
with .Bars.Item("Task")
.HistogramPattern = .Pattern && .Pattern
.HistogramType = 0
.HistogramCriticalValue = 3
.HistogramItems = -7
.HistogramGridLinesColor = RGB(192,192,192)
.HistogramRulerLinesColor = RGB(0,0,1)
endwith
endwith
with .Items
.AllowCellValueToItemBar = .T.
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-21},{^2005-6-23})
.DefaultItem = h1
.CellValue(0,1) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",{^2005-6-24},{^2005-6-26})
.DefaultItem = h1
.CellValue(0,1) = 3
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",{^2005-6-27},{^2005-6-29})
.DefaultItem = h1
.CellValue(0,1) = 2
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",{^2005-6-30},{^2005-7-2})
.DefaultItem = h1
.CellValue(0,1) = 1
endwith
.EndUpdate
endwith
|
|
1632
|
I am using AllowGroupBy property and calling the Column.SortOrder property groups by that column. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's GroupBy bar
with thisform.G2antt1
with .Columns
.Add("First")
.Add("Second")
.Add("Third")
endwith
.SortBarVisible = .T.
.SingleSort = .F.
.AllowGroupBy = .T.
.Layout = "SingleSort = "+chr(34)+"C0:1"+chr(34)+";MultipleSort = "+chr(34)+"C1:2 C2:1"+chr(34)+""
endwith
|
|
1631
|
Calling programatically the Column.SortOrder property adds the column to the sort bar. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's Sort bar
with thisform.G2antt1
with .Columns
.Add("First")
.Add("Second")
.Add("Third")
endwith
.SortBarVisible = .T.
.SingleSort = .F.
.Layout = "SingleSort = "+chr(34)+"C0:1"+chr(34)+""
endwith
|
|
1630
|
How can I specify different working parts for different items
with thisform.G2antt1
.BeginUpdate
with .Columns
.Add("Tasks")
with .Add("Working")
.Def(18) = 258
.Def(19) = "A"
.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
endwith
with .Add("NonWorking")
.Def(18) = 259
.Def(19) = "A"
.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
endwith
endwith
with .Chart
.PaneWidth(0) = 78
.AllowCreateBar = 1
.FirstVisibleDate = {^2005-6-20}
.DrawLevelSeparator = .F.
.LevelCount = 3
.Level(1).DrawGridLines = .F.
.AllowInsideZoom = .T.
.DrawDateTicker = .T.
.DateTickerLabel = "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
.MarkSelectDateColor = 0x7ffff8ee
with .DefaultInsideZoomFormat
.OwnerLabel = "<%mmm%> <%d%>"
.BackColor = RGB(238,248,255)
.BackColorChart = .BackColor
.InsideCount = 4
.InsideLabel = "<b><%hh%></b>"
endwith
.InsideZooms.Add({^2005-6-22})
.DrawGridLines = 2
.Bars.Item("Split").Color = RGB(255,0,0)
with .Bars.Add("Task:Split")
.Color = RGB(255,0,0)
.Pattern = 6
.Shortcut = "Task"
endwith
endwith
with .Items
.AllowCellValueToItemBar = .T.
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",{^2005-6-22 8:00:00},{^2005-6-28},"A")
.DefaultItem = h1
.ItemBar(0,"A",20) = .T.
.DefaultItem = h1
.ItemNonworkingUnits(0,.F.) = "weekday(value) in (1,2)"
.DefaultItem = h1
.ItemNonworkingUnits(0,.T.) = "weekday(value) in (1,2) or (hour(value)<8 or hour(value)>=16 )"
h2 = .AddItem("Task 1")
.AddBar(h2,"Task",{^2005-6-22 4:00:00},{^2005-6-29 12:00:00},"A")
.DefaultItem = h2
.ItemBar(0,"A",20) = .T.
.DefaultItem = h2
.ItemNonworkingUnits(0,.F.) = "weekday(value) in (1,2)"
.DefaultItem = h2
.ItemNonworkingUnits(0,.T.) = "weekday(value) in (1, 2) or (hour(value)<4 or hour(value)>=12 )"
endwith
.EndUpdate
endwith
|
|
1629
|
How can I define the default bar's foreground color
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
with .Chart
.FirstVisibleDate = {^2001-1-1}
.PaneWidth(0) = 48
with .Bars.Item("Task")
.Height = 15
.Pattern = 1
.Def(8) = 16777215
endwith
endwith
with .Items
.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-6},"K1","bar A")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-6},"K2","bar B")
.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-6},"K3","bar C")
endwith
.EndUpdate
endwith
|
|
1628
|
How can I print the selected items only
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
with thisform.G2antt1
with .Items
.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.SingleSel = .F.
.ColumnAutoResize = .F.
.ContinueColumnScroll = .F.
rs = CreateObject("ADOR.Recordset")
with rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
endwith
.DataSource = rs
.Chart.FirstVisibleDate = {^1994-8-4}
with .Items
.DefaultItem = .ItemByIndex(0)
.SelectItem(0) = .T.
.DefaultItem = .ItemByIndex(2)
.SelectItem(0) = .T.
.DefaultItem = .ItemByIndex(4)
.SelectItem(0) = .T.
endwith
.EndUpdate
with CreateObject("Exontrol.Print")
.Options = "Print = Selection"
.PrintExt = thisform.G2antt1.Object
.Preview
endwith
endwith
|
|
1627
|
How can I sort the columns to be displayed on the columns floating bar
with thisform.G2antt1
.ColumnAutoResize = .F.
with .Columns
.Add("City").Visible = .F.
.Add("Start").Visible = .F.
.Add("End").Visible = .F.
endwith
.ColumnsFloatBarVisible = .T.
.ColumnsFloatBarSortOrder = 1
endwith
|
|
1626
|
How can I add a vertical padding for my cells
with thisform.G2antt1
.BeginUpdate
.DrawGridLines = -1
with .Columns.Add("Padding")
.Def(0) = .T.
.Def(16) = .F.
.Def(48) = 6
.Def(49) = 6
.Def(50) = 6
.Def(51) = 6
endwith
with .Items
.AddItem("padding")
.AddItem("padding")
endwith
.EndUpdate
endwith
|
|
1625
|
Trying to fill the second columns. How can I do that
with thisform.G2antt1
.BeginUpdate
with .Columns
.Add("Column 1")
.Add("Column 2")
.Add("Column 3")
endwith
with .Items
h = .AddItem("SubItem 1.1")
.DefaultItem = h
.CellValue(0,1) = "SubItem 1.2"
.DefaultItem = h
.CellValue(0,2) = "SubItem 1.3"
h = .AddItem("SubItem 2.1")
.DefaultItem = h
.CellValue(0,1) = "SubItem 2.2"
.DefaultItem = h
.CellValue(0,2) = "SubItem 2.3"
endwith
.EndUpdate
endwith
|
|
1624
|
How can I specify a different background color for item, in chart or list panels
with thisform.G2antt1
.Columns.Add("Default")
with .Items
h = .AddItem("Root")
hC = .InsertItem(h,Null,"Child 1")
.DefaultItem = hC
.ItemBackColor(0) = RGB(255,0,0)
.DefaultItem = hC
thisform.G2antt1.Chart.ItemBackColor(0) = RGB(0,255,0)
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
1623
|
Is it possible to specify a status part for each bar
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 64
.Debug = .T.
var_s = "gBFLBCJwBAEHhEJAAChABL8IQAAYAQGKIaBwAKBQAGaAoDDQNgyQwAAxwdBMKgBBCLIxhEYobgmGIaRjHcQjEKoSxHEqIRpGCRoJiqLIZAJIEZRZAcaQvGSQYRASCRND"
var_s = var_s + "EOA0TDAY4jPD4aQiGIbRjjeL5YjiNo2UxTNRQCEB"
.VisualAppearance.Add(1,var_s)
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"B1")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-17},"B2")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
.ItemBar(0,"<*>",33) = 255
.ItemBar(0,"<*>",51) = 16777216
endwith
.EndUpdate
endwith
|
|
1622
|
How can I change the the focus rectangle
with thisform.G2antt1
.BeginUpdate
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\sample\EBN\hoverinsert.ebn")
.Object.Background(19) = 0x1000000
with .Columns.Add("Check")
.Def(48) = 2
.Def(0) = .T.
endwith
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.DefaultItemHeight = 22
.ShowFocusRect = .T.
with .Items
.AddItem("")
.AddItem("")
endwith
.EndUpdate
endwith
|
|
1621
|
Can each cell have their own dropdown lists that contain "different list item values" for each cell, not predefined for the entire column
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Column/Cell-Same").Editor
.EditType = 3
.AddItem(0,"Zero")
.AddItem(1,"One")
.AddItem(2,"Two")
endwith
with .Columns.Add("Column/Cell-Different").Editor
.EditType = 1
endwith
with .Items
.AddItem()
h = .AddItem(0)
with .CellEditor(h,1)
.EditType = 3
.AddItem(3,"Three")
.AddItem(4,"Four")
endwith
.DefaultItem = h
.CellValue(0,1) = 3
.AddItem()
h = .AddItem(0)
with .CellEditor(h,1)
.EditType = 6
.AddItem(1,"Single")
.AddItem(2,"Double")
endwith
.DefaultItem = h
.CellValue(0,1) = 3
endwith
.EndUpdate
endwith
|
|
1620
|
How can I specify just a few fonts in a FontType editor
with thisform.G2antt1
.BeginUpdate
.DefaultItemHeight = 22
.DrawGridLines = -2
with .Columns.Add("Fonts").Editor
.EditType = 10
.ClearItems
.AddItem(0,"Calibri")
.AddItem(1,"Arial")
.AddItem(2,"Rockwell")
.AddItem(3,"Tahoma")
.SortItems(.T.)
.DropDownRows = 4
endwith
with .Items
.AddItem("Tahoma")
endwith
.EndUpdate
endwith
|
|
1619
|
How can I show only the working-hours in chart and histogram panels
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Tasks")
.DrawGridLines = -1
with .Chart
.PaneWidth(0) = 40
.FirstVisibleDate = {^2005-6-20}
.HistogramVisible = .T.
.HistogramHeight = 64
.HistogramView = 112
.LevelCount = 3
.NonworkingHours = 16253183
with .Bars.Item("Task")
.HistogramType = 1
.HistogramPattern = .Pattern && .Pattern
endwith
.ShowNonworkingDates = .F.
.ShowNonworkingUnits = .F.
.ShowNonworkingHours = .F.
.DrawGridLines = -1
.UnitScale = 65536
.UnitWidth = 4
.ResizeUnitScale = .UnitScale && .UnitScale
endwith
with .Items
h = .AddItem("Task A")
.AddBar(h,"Task",{^2005-6-23 11:00:00},{^2005-6-23 12:00:00})
.DefaultItem = h
.ItemBar(0,"",21) = "0.0416666"
.DefaultItem = h
.ItemBar(0,"",20) = .T.
h = .AddItem("Task B")
.AddBar(h,"Task",{^2005-6-23 12:00:00},{^2005-6-23 16:00:00})
.DefaultItem = h
.ItemBar(0,"",21) = "0.0416666"
.DefaultItem = h
.ItemBar(0,"",20) = .T.
endwith
.EndUpdate
endwith
|
|
1618
|
How do you embed HTML options into the anchor click string
*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
with thisform.G2antt1
DEBUGOUT( AnchorID )
DEBUGOUT( Options )
endwith
with thisform.G2antt1
.BeginUpdate
with .Columns
.Add("Car").Def(17) = 1
endwith
with .Items
.AddItem("<a mazda_1;options for 1>Mazda <b>1</b></a>")
.AddItem("<a mazda_2;options for 2>Mazda <b>2</b></a>")
.AddItem("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
.AddItem("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
endwith
.EndUpdate
endwith
|
|
1617
|
How do I add a checkbox column (method 2)
*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Item,ColIndex
with thisform.G2antt1
DEBUGOUT( "CheckBox Changed:" )
DEBUGOUT( .Items.CellState(Item,ColIndex) )
endwith
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Check").Def(0) = .T.
with .Items
.DefaultItem = .AddItem("Check 1")
.CellState(0,0) = 0
.DefaultItem = .AddItem("Check 2")
.CellState(0,0) = 1
.DefaultItem = .AddItem("Check 3")
.CellState(0,0) = 0
.DefaultItem = .AddItem("Check 4")
.CellState(0,0) = 1
endwith
.EndUpdate
endwith
|
|
1616
|
How do I add a checkbox column (method 1)
*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
with thisform.G2antt1
DEBUGOUT( "CheckBox Changed:" )
DEBUGOUT( NewValue )
endwith
with thisform.G2antt1
.BeginUpdate
with .Columns.Add("Check")
with .Editor
.EditType = 19
.Option(17) = 1
endwith
endwith
with .Items
.AddItem(0)
.AddItem(1)
.AddItem(0)
.AddItem(1)
endwith
.EndUpdate
endwith
|
|
1615
|
How do I change the progress bar's appearance
with thisform.G2antt1
with .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
endwith
var_Editor = .Columns.Add("Progress").Editor
with var_Editor
.EditType = 13
.Option(11) = 16777216
.Option(13) = 33554432
endwith
.Items.AddItem(33)
endwith
|
|
1614
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
with thisform.G2antt1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78eg"
var_s = var_s + "BHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRxL"
var_s = var_s + "C8Mw3BDvYDkOAABAIgI="
.VisualAppearance.Add(1,var_s)
.SelBackColor = 0x1fffffe
.SelForeColor = RGB(0,0,0)
.SelBackColor = 0x1000000
.ShowFocusRect = .F.
.Columns.Add("Items")
.DefaultItemHeight = 22
with .Items
.DefaultItem = .AddItem("red")
.ItemBackColor(0) = RGB(255,0,0)
.DefaultItem = .AddItem("blue")
.ItemBackColor(0) = RGB(0,0,255)
.DefaultItem = .AddItem("green")
.ItemBackColor(0) = RGB(0,255,0)
endwith
.EndUpdate
endwith
|
|
1613
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
with thisform.G2antt1
.BeginUpdate
.SelBackMode = 1
.DefaultItemHeight = 22
.ShowFocusRect = .F.
.Columns.Add("Items")
with .Items
.DefaultItem = .AddItem("red")
.ItemBackColor(0) = RGB(255,0,0)
.DefaultItem = .AddItem("blue")
.ItemBackColor(0) = RGB(0,0,255)
.DefaultItem = .AddItem("green")
.ItemBackColor(0) = RGB(0,255,0)
endwith
.EndUpdate
endwith
|
|
1612
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
with thisform.G2antt1
.BeginUpdate
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.DefaultItemHeight = 22
.ShowFocusRect = .T.
.Columns.Add("Items")
with .Items
.DefaultItem = .AddItem("red")
.ItemBackColor(0) = RGB(255,0,0)
.DefaultItem = .AddItem("blue")
.ItemBackColor(0) = RGB(0,0,255)
.DefaultItem = .AddItem("green")
.ItemBackColor(0) = RGB(0,255,0)
endwith
.EndUpdate
endwith
|
|
1611
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
*** BeforeExpandItem event - Fired before an item is about to be expanded (collapsed). ***
LPARAMETERS Item,Cancel
with thisform.G2antt1
DEBUGOUT( "BeforeExpandItem" )
DEBUGOUT( Item )
.Items.InsertItem(Item,Null,"new child")
endwith
with thisform.G2antt1
.BeginUpdate
.LinesAtRoot = -1
with .Columns
with .Add("Items")
.DisplayFilterButton = .T.
.FilterList = 4
endwith
endwith
with .Items
.DefaultItem = .InsertItem(Null,Null,"Group 1")
.ItemHasChildren(0) = .T.
.DefaultItem = .InsertItem(Null,Null,"Group 2")
.ItemHasChildren(0) = .T.
endwith
.EndUpdate
endwith
|
|
1610
|
How can identify when I clicked Hour, Month, or Year of the time-scale overview
*** OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area. ***
LPARAMETERS nop
with thisform.G2antt1
DEBUGOUT( "UnitScale: " )
DEBUGOUT( .Chart.UnitScale )
endwith
with thisform.G2antt1
with .Chart
.PaneWidth(0) = 128
.LevelCount = 2
.OverviewVisible = 2
.AllowOverviewZoom = 1
endwith
endwith
|
|
1609
|
How can define a minimum and maximum in a column SpinType
with thisform.G2antt1
with .Columns
with .Add("SpinType between 5 and 150").Editor
.EditType = 20
.Numeric = -1
.Option(41) = 0
.Option(43) = 5
.Option(44) = 150
endwith
endwith
.Items.AddItem(50)
endwith
|
|
1608
|
How I can change the title of the time-scale overview. (Example: Month by 'Mes', Day by 'Dia')
with thisform.G2antt1
with .Chart
.PaneWidth(0) = 128
.LevelCount = 2
.OverviewVisible = 2
.AllowOverviewZoom = 1
.OverviewZoomCaption = "Aņo|||Mes|||Dia|||"
.Label(1) = ""
.Label(2) = ""
.Label(17) = ""
.Label(256) = ""
.Label(65536) = ""
.Label(1048576) = ""
.Label(16777216) = ""
endwith
endwith
|
|
1607
|
Is it possible to set a fixed wide for the Items List Arrea, so that when changing the Form.width, the Items List Arrea be constant and therefor changing the Chart Area-wide
with thisform.G2antt1
.OnResizeControl = 1
endwith
|
|
1606
|
How can I clear the colors for all bars at once
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 64
.Debug = .T.
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A")
.DefaultItem = h
.ItemBar(0,"A",33) = 65280
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"B1")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-17},"B2")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
.ItemBar(0,"<*>",33) = 0
endwith
.EndUpdate
endwith
|
|
1605
|
How can I change the colors for all bars at once
with thisform.G2antt1
.BeginUpdate
.Columns.Add("Task")
.Chart.FirstVisibleDate = {^2001-1-1}
.Chart.PaneWidth(0) = 64
.Debug = .T.
with .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"A")
.AddBar(h,"Task",{^2001-1-5},{^2001-1-7},"B1")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-17},"B2")
.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-4},"K3")
.AddBar(.AddItem("Task 4"),"Task",{^2001-1-2},{^2001-1-4},"K4")
.ItemBar(0,"<*>",33) = 255
endwith
.EndUpdate
endwith
|
|
1604
|
How can I show my custom bars in the histogram (method 3)
with thisform.G2antt1
.BeginUpdate
with .Chart
.LevelCount = 2
.AllowLinkBars = .F.
.DrawGridLines = -1
.FirstVisibleDate = {^2000-12-31}
.HistogramVisible = .T.
.HistogramHeight = 64
.PaneWidth(0) = 128
with .Bars.Item("Task")
.HistogramType = 256
.HistogramItems = 6
.HistogramPattern = .Pattern && .Pattern
.HistogramCumulativeOriginalColorBars = 1
.OverlaidType = 1
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
h = .AddItem("Item 3")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-12})
.DefaultItem = h
.ItemBar(0,"",33) = 255
endwith
.EndUpdate
endwith
|
|
1603
|
How can I show my custom bars in the histogram (method 2)
with thisform.G2antt1
.BeginUpdate
with .Chart
.PaneWidth(0) = 64
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
h = .AddItem("Item 3")
.AddBar(h,"Task",{^2001-1-8},{^2001-1-12})
.DefaultItem = h
.ItemBar(0,"",33) = 255
endwith
.EndUpdate
endwith
|
|
1602
|
How can I show my custom bars in the histogram (method 1)
with thisform.G2antt1
.BeginUpdate
with .Chart
.PaneWidth(0) = 64
.FirstVisibleDate = {^2001-1-1}
.HistogramVisible = .T.
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
with .Bars.Copy("Task","MyBar")
.HistogramPattern = 5
.Color = RGB(255,0,0)
.HistogramColor = .Color
endwith
endwith
.Columns.Add("Column")
with .Items
.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
.AddBar(.AddItem("Item 2"),"Task",{^2001-1-3},{^2001-1-7})
.AddBar(.AddItem("Item 3"),"MyBar",{^2001-1-8},{^2001-1-12})
endwith
.EndUpdate
endwith
|
|
1601
|
Do you have any Fit-To-Page options when printing the control
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
with thisform.G2antt1
with .Items
.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
endwith
endwith
with thisform.G2antt1
.BeginUpdate
.ColumnAutoResize = .F.
.ContinueColumnScroll = .F.
rs = CreateObject("ADOR.Recordset")
with rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
endwith
.DataSource = rs
.Chart.FirstVisibleDate = {^1994-8-4}
.EndUpdate
with CreateObject("Exontrol.Print")
.Options = "FitToPage = On"
.PrintExt = thisform.G2antt1.Object
.Preview
endwith
endwith
|